home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / iv.dir / 00037_question text box callback.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  1.9 KB  |  50 lines
  1. on mouseDown
  2.   global givTextRegColor, givTextHiliteColor, givState, givLastIndexLine, givCurrIndexLine
  3.   set givLastIndexLine to -1
  4.   set mLine to the mouseLine
  5.   MessagePut("entering QuestionTextBox callback, mouseLine: " & mLine)
  6.   if (mLine = -1) or (mLine >= the number of lines in field "QuestionTextBox") then
  7.     exit
  8.   end if
  9.   if (the mode of givState = #play) and (the activeMonitor of givState = 3) then
  10.     MessagePut("no question text box functionality for this monitor")
  11.     exit
  12.   end if
  13.   if the doubleClick then
  14.     MessagePut("in question text box callback, double-click detected")
  15.     dontPassEvent()
  16.     exit
  17.   end if
  18.   if mLine <> -1 then
  19.     set executeOnce to 0
  20.     set the foreColor of cast "QuestionTextBox" to givTextRegColor
  21.     MessagePut("lines in question text box:" && the number of lines in field "QuestionTextBox")
  22.     repeat while the stillDown or (executeOnce = 0)
  23.       if the mouseCast = the number of cast "QuestionTextBox" then
  24.         if executeOnce = 1 then
  25.           set mLine to the mouseLine
  26.         end if
  27.         if (mLine <> givLastIndexLine) and (mLine <> -1) then
  28.           MessagePut("mLine, last index line:" && mLine && givLastIndexLine)
  29.           set the foreColor of line givLastIndexLine of field "QuestionTextBox" to givTextRegColor
  30.           set the foreColor of line mLine of field "QuestionTextBox" to givTextHiliteColor
  31.           set givLastIndexLine to mLine
  32.         end if
  33.         set executeOnce to 1
  34.       end if
  35.     end repeat
  36.     MessagePut("after repeat loop, mline is" && mLine)
  37.     set givLastIndexLine to mLine
  38.     set givCurrIndexLine to givLastIndexLine
  39.     set N to the number of lines in field "QuestionTextBox"
  40.     if (givCurrIndexLine > 0) and (givCurrIndexLine < N) then
  41.       AddToSelectList(givCurrIndexLine)
  42.       SetQuestionClipFromTextBox(givCurrIndexLine)
  43.       MessagePut("selecting line" && givCurrIndexLine)
  44.     else
  45.       DisplayFromList()
  46.     end if
  47.   else
  48.   end if
  49. end
  50.